home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / mindbo1a / frmsplas.frm (.txt) < prev    next >
Visual Basic Form  |  1999-04-20  |  4KB  |  128 lines
  1. VERSION 5.00
  2. Begin VB.Form frmSplash 
  3.    BackColor       =   &H00FFC0FF&
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    ClientHeight    =   5040
  6.    ClientLeft      =   255
  7.    ClientTop       =   1410
  8.    ClientWidth     =   4890
  9.    ClipControls    =   0   'False
  10.    ControlBox      =   0   'False
  11.    Icon            =   "frmSplash.frx":0000
  12.    KeyPreview      =   -1  'True
  13.    LinkTopic       =   "Form2"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   5040
  17.    ScaleWidth      =   4890
  18.    ShowInTaskbar   =   0   'False
  19.    StartUpPosition =   2  'CenterScreen
  20.    Begin VB.Timer Timer2 
  21.       Enabled         =   0   'False
  22.       Interval        =   5000
  23.       Left            =   3720
  24.       Top             =   2760
  25.    End
  26.    Begin VB.Timer Timer1 
  27.       Left            =   2040
  28.       Top             =   2880
  29.    End
  30.    Begin VB.Frame Frame1 
  31.       Appearance      =   0  'Flat
  32.       BackColor       =   &H00800080&
  33.       BorderStyle     =   0  'None
  34.       ForeColor       =   &H80000008&
  35.       Height          =   4770
  36.       Left            =   120
  37.       TabIndex        =   0
  38.       Top             =   120
  39.       Width           =   4680
  40.       Begin VB.Label Label2 
  41.          BackColor       =   &H80000008&
  42.          Caption         =   "Label2"
  43.          Height          =   135
  44.          Left            =   240
  45.          TabIndex        =   3
  46.          Top             =   4080
  47.          Width           =   4215
  48.       End
  49.       Begin VB.Label lblProductName 
  50.          AutoSize        =   -1  'True
  51.          BackStyle       =   0  'Transparent
  52.          Caption         =   "Boggle"
  53.          BeginProperty Font 
  54.             Name            =   "Arial"
  55.             Size            =   32.25
  56.             Charset         =   0
  57.             Weight          =   700
  58.             Underline       =   0   'False
  59.             Italic          =   0   'False
  60.             Strikethrough   =   0   'False
  61.          EndProperty
  62.          Height          =   765
  63.          Index           =   1
  64.          Left            =   2160
  65.          TabIndex        =   2
  66.          Top             =   360
  67.          Visible         =   0   'False
  68.          Width           =   2175
  69.       End
  70.       Begin VB.Label lblProductName 
  71.          AutoSize        =   -1  'True
  72.          BackStyle       =   0  'Transparent
  73.          Caption         =   "Mind "
  74.          BeginProperty Font 
  75.             Name            =   "Arial"
  76.             Size            =   32.25
  77.             Charset         =   0
  78.             Weight          =   700
  79.             Underline       =   0   'False
  80.             Italic          =   0   'False
  81.             Strikethrough   =   0   'False
  82.          EndProperty
  83.          Height          =   765
  84.          Index           =   0
  85.          Left            =   360
  86.          TabIndex        =   1
  87.          Top             =   360
  88.          Visible         =   0   'False
  89.          Width           =   1695
  90.       End
  91.    End
  92. Attribute VB_Name = "frmSplash"
  93. Attribute VB_GlobalNameSpace = False
  94. Attribute VB_Creatable = False
  95. Attribute VB_PredeclaredId = True
  96. Attribute VB_Exposed = False
  97. Option Explicit
  98. Dim intHeight As Integer
  99. Dim intCounter As Integer
  100. Dim intLocationH As Integer
  101. Private Sub Form_Load()
  102. Dim lngRc As Long
  103. With frmSplash
  104.         .Top = (Screen.Height - frmSplash.Height) / 2
  105.         .Left = (Screen.Width - frmSplash.Width) / 2
  106.     End With
  107. lngRc = sndPlaySound(App.Path & "\newscream.wav", 1)
  108. Timer1.Interval = 200
  109. End Sub
  110. Private Sub Timer1_Timer()
  111.     Timer2.Enabled = True
  112.     If intCounter > 3500 Then
  113.         intCounter = intCounter - 300
  114.         lblProductName(1).Top = intCounter
  115.         lblProductName(1).Visible = True
  116.         Timer1.Interval = 0
  117.     Else
  118.         lblProductName(0).Top = intCounter
  119.         lblProductName(0).Visible = True
  120.         intCounter = intCounter + 300
  121.     End If
  122.       
  123. End Sub
  124. Private Sub Timer2_Timer()
  125. Form1.Show
  126. Unload Me
  127. End Sub
  128.